home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / news / fido / ger / amiprog / 82 < prev    next >
Internet Message Format  |  1996-03-16  |  3KB
  1. From: Athanasios_Mazarakis@p4.f2248.n246.z2.fido.sub.org (Athanasios Mazarakis)
  2. Organization: I'm living in a box....;-)
  3. Path: f4.n24748.z2.fidonet.org!not-for-mail
  4. Newsgroups: fido.ger.amiprog
  5. Subject: Mitternacht
  6. Message-ID: <MSGID_2=3A246=2F2248.4=40FidoNet_4632e76b@fidonet.org>
  7. References: <MSGID_2=3A246=2F2248.29_303de90f@fidonet.org>
  8. Date: Fri, 25 Aug 1995 14:29:43 +0200
  9.  
  10. Hello Guenter!
  11.  
  12. On 25 August 95 you wrote to me:
  13.  
  14.  GB> Hm, hier kommt es weniger auf Pascal- denn auf Betriebssystemkenntnisse
  15.  GB> an.
  16.  
  17. Na super. Da ich jedoch mit dem betriebssystem (bis auf 1 oder 2 Spielereien)
  18. noch nicht direkt zu tun hatte...:-/ Nunja.
  19.  
  20. Ich warte mal ab was ich in der Schule zum Thema Pascal lernen tue.
  21.  
  22.  GB> Mein Vorschlag waere, in einer Unendlichschleife (REPEAT...UNTIL FALSE)
  23.  GB> zunaechst einmal mit DateStamp aus DOS die aktuelle Uhrzeit zu erfragen.
  24.  GB> Diese Funktion liefert drei Langworte zurueck, wobei das zweite die
  25.  GB> Anzahl der seit Mitternacht vergangenen Minuten angibt.
  26.  
  27. Hoert sich eigentlich ziemlich gut an.
  28.  
  29.  GB> Diese Zahl der Minuten muss man nun nur noch in Ticks umrechnen, um dann
  30.  GB> mit Delay genau diese Zeit zu warten.
  31.  
  32. Naja.. davon habe ich keinen Plan, wieso das ganze in Ticks umgerechnet
  33.        werden
  34. soll ( was sind Ticks?:-) )... egal.
  35.  
  36.  GB> Das koennte man (altertuemlich ;-) mit EXECUTE oder modern mit SYSTEM
  37.  GB> anstellen.
  38.  
  39. ?
  40.  
  41.  GB> CONST Minuten_seit_Mitternacht = 9*60+43 ; (* z.B. 9 Uhr 43 *)
  42.  
  43. Und diese Konstante blicke ich auch nicht... wozu?
  44.  
  45.  GB> BEGIN
  46.  GB>    ComS := 'c:Dir' ;
  47.  GB>    ReWrite(DNil,'NIL:') ; fh := FileHandle(DNil) ;
  48.  GB> 
  49.  GB>    REPEAT
  50.  GB>       _DateStamp(^l) ;
  51.  GB>       IF l[2]>Minuten_seit_Mitternacht THEN
  52.  GB>          w := Minuten_seit_Mitternacht+(24*60-l[2])
  53.  GB>       ELSE
  54.  GB>          w := Minuten_seit_Mitternacht-l[2] ;
  55.  GB> 
  56.  GB>       w := w*60*50 ; (* In Ticks umrechnen *)
  57.  GB>       _Delay(w) ;
  58.  GB>       OK := Execute(^ComS,0,fh)
  59.  GB>    UNTIL FALSE
  60.  GB> END.
  61.  
  62. Puh.. da gehts aber schon happiger zu in dem Programm. Muss wohl irgendwo mal en
  63. Buch finden um Pascal gescheit zu lernen...
  64.  
  65.  AM> Das ganze wenn moeglich auf MAXON PASCAL...
  66.  GB> Aha, bin offenbar doch nicht der einzige Pascal-Programmierer hier...
  67.  
  68. Naja... PROGRAMMIERER taete ich mich NOCH nicht nennen. Ich habe ein erstes
  69. Proggy fertigegestellt das Notenausrechnen soll usw. Noch klemmts es an allen
  70. Ecken und Stellen (habe mich scheinst etwas uebernommen und es zu komplex fuer
  71. mich gemacht... aber die Bugs werden weniger:-) ), und auch die Einfuehrung von
  72. weiteren Sachen wird schwer... soll naemlich bald auch ein Modul abspielen...
  73. ohje:-)
  74.  
  75. Egal... ich versuche jetzt zuerst mal meine BBS zum laufen zu bekommen (MAXsBBS.
  76. Siehe auch verschiedene Mails in der AMIGA.GER).
  77.  
  78.  GB>  * Origin: Geisterstunde? (2:246/2248.29)
  79.  
  80. Ooppss... Pointkollege?:-) Naja... und Geisterstunde... ja.. so koennten wir das
  81. Proggy nennen:-))))))))
  82.  
  83. Bye,
  84.  
  85. Athanasios
  86.  
  87.  
  88.  
  89. ... Madness takes its toll. Exact change, please.
  90.  
  91.